* Просмотр сведений о понятии
* Программа КОНЦЕПТ, 04.10.2010, www.gendoc.ru 

* Базу фактов можно загрузить из файла
*  данные загрузить [БАЗА_ФАКТОВ]

* Или сформировать с использованием команд
факт добавить \
  'i;млекопитающее;животное' \
  'i;хищник;животное'  \
  'i;травоядное;животное'  \
  'i;парнокопытное;животное'  \
  'p;животное;способно;дышать' \
  'p;животное;способно;двигаться' \
  'p;хищник;питается;мясо'  \
  'p;хищник;имеет;острые зубы'  \
  'p;хищник;имеет;острые когти'  \
  'p;травоядное;питается;растения'  \
  'p;млекопитающее;способно;кормить детенышей молоком' \
  'p;парнокопытное;имеет;копыта' \
  'i;корова;травоядное' \
  'i;корова;млекопитающее' \
  'i;корова;парнокопытное' \
  'i;корова;травоядное' \
  'p;корова;имеет;рога' \
  'i;тигр;млекопитающее' \
  'i;тигр;хищник' \
  'p;тигр;окраска;в желто-черную полоску' \
  'i;корова;домашнее животное' \
  'p;домашнее животное;живет с человеком;да'

ввести переменная ПОНЯТИЕ 'Укажите животное:' корова;тигр

Сведения_о_понятии [ПОНЯТИЕ]  

функция Сведения_о_понятии понятие
>
>****** Понятие: [понятие] ******

понятие над рез [понятие]
если [рез] != {}
  >
  >Родительские понятия:
  для [рез]
    >  [$объектЦикла]
  следующий
конец

понятие СвойстваВСписок свойства [понятие]
если [свойства] != {}
  >
  >Непосредственные свойства:
  для [свойства]
    >  [$объектЦикла]
  следующий
конец

понятие всеСвойстваВСписок всеСвойства [понятие]
множество разность всеСвойства [всеСвойства] [свойства]
если [всеСвойства] != {}
  >
  >Наследованные свойства:
  для [всеСвойства]
    >  [$объектЦикла]
  следующий
конец

понятие под рез [понятие]
если [рез] != {}
  >
  >Дочерние понятия:
  для [рез]
    >  [$объектЦикла]
  следующий
конец

понятие всеНад рез [понятие]
если [рез] != {}
  >
  >Все родительские понятия:
  для [рез]
    >  [$объектЦикла]
  следующий
конец

понятие всеПод рез [понятие]
если [рез] != {}
  >
  >Все дочерние понятия:
  для [рез]
    >  [$объектЦикла]
  следующий
конец